home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HeiBe Erotik
/
HeiBe Erotik.iso
/
erovoll
/
dice
/
dicewahl.dir
/
00022_Script_22
< prev
next >
Wrap
Text File
|
1979-12-31
|
725b
|
17 lines
on exitFrame
global reg
if chars(baEncryptText( the text of member 23 , "0101010101" ),1,16)="^.R9FI&ABX2+N>J6" then
puppetsound "icemag"
set OK = baWriteIni( "Dice3.1", "Passwort", the text of member 23, "dice3.ini" )
set OK = baWriteIni( "Dice3.1", "Girl1", "1", "dice3.ini" )
set OK = baWriteIni( "Dice3.1", "Girl2", "1", "dice3.ini" )
set OK = baWriteIni( "Dice3.1", "Girl3", "1", "dice3.ini" )
set OK = baWriteIni( "Dice3.1", "Girl4", "1", "dice3.ini" )
set OK = baWriteIni( "Dice3.1", "Girl5", "1", "dice3.ini" )
set reg=1
go to "Start"
exit
end if
--set the text of member 25 =baEncryptText( the text of member 23 , "0101010101" )
go to the frame
end